home *** CD-ROM | disk | FTP | other *** search
- (herald xhostaddress (env tsys (xlib interface)))
- (DEFINE (MAKE-XHOSTADDRESS) (CONS 'XHOSTADDRESSP (MAKE-BYTEV 12)))
- (DEFINE (XHOSTADDRESS-FAMILY X) (MREF-INTEGER (CHK-XHOSTADDRESSP X) 0))
- (DEFINE (XHOSTADDRESS-FAMILY! X Y)
- (SET-MREF-INTEGER! (CHK-XHOSTADDRESSP X) 0 Y))
- (DEFINE (XHOSTADDRESS-LENGTH X) (MREF-INTEGER (CHK-XHOSTADDRESSP X) 4))
- (DEFINE (XHOSTADDRESS-LENGTH! X Y)
- (SET-MREF-INTEGER! (CHK-XHOSTADDRESSP X) 4 Y))
- (DEFINE (XHOSTADDRESS-ADDRESS X)
- ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
- (CHK-XHOSTADDRESSP X)
- 8))
- (DEFINE (XHOSTADDRESS-ADDRESS! X Y)
- ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
- (CHK-XHOSTADDRESSP X)
- 8
- Y))
-